home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / syswit / syshelp.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1995-05-08  |  2.0 KB  |  61 lines
  1. VERSION 2.00
  2. Begin Form Form2 
  3.    BackColor       =   &H00C0C0C0&
  4.    BorderStyle     =   3  'Fixed Double
  5.    Caption         =   "About SySwitch 2.0"
  6.    ClientHeight    =   2145
  7.    ClientLeft      =   2940
  8.    ClientTop       =   2745
  9.    ClientWidth     =   3855
  10.    ControlBox      =   0   'False
  11.    ForeColor       =   &H00C0C0C0&
  12.    Height          =   2550
  13.    Left            =   2880
  14.    LinkMode        =   1  'Source
  15.    LinkTopic       =   "Form2"
  16.    MaxButton       =   0   'False
  17.    MinButton       =   0   'False
  18.    ScaleHeight     =   2145
  19.    ScaleWidth      =   3855
  20.    Top             =   2400
  21.    Width           =   3975
  22.    Begin CommandButton Command1 
  23.       Caption         =   "OK"
  24.       Default         =   -1  'True
  25.       Height          =   375
  26.       Left            =   3060
  27.       TabIndex        =   1
  28.       Top             =   1140
  29.       Width           =   735
  30.    End
  31.    Begin TextBox Text1 
  32.       BackColor       =   &H00C0C0C0&
  33.       BorderStyle     =   0  'None
  34.       Enabled         =   0   'False
  35.       Height          =   1545
  36.       Left            =   270
  37.       MultiLine       =   -1  'True
  38.       TabIndex        =   0
  39.       Text            =   "SySwitch was written by Paul Bonner (Compuserve ID 76000,13), senior editor of PC/Computing magazine, and is hereby placed in the public domain. Have fun with it."
  40.       Top             =   270
  41.       Width           =   2475
  42.    End
  43.    Begin PictureBox Picture1 
  44.       BackColor       =   &H00C0C0C0&
  45.       BorderStyle     =   0  'None
  46.       Height          =   615
  47.       Left            =   3180
  48.       Picture         =   SYSHELP.FRX:0000
  49.       ScaleHeight     =   615
  50.       ScaleWidth      =   735
  51.       TabIndex        =   2
  52.       Top             =   180
  53.       Width           =   735
  54.    End
  55. Sub Command1_Click ()
  56. Unload Form2
  57. End Sub
  58. Sub Form_Paint ()
  59. Call Frame2(Form2, Text1.Left - 90, Text1.Top - 90, Text1.Height + Text1.Top, Text1.Width + Text1.Left)
  60. End Sub
  61.